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DIRECTORY 

ControlDefs: FROM "controldef s" , 

SegmentDefs: FROM "segmentdef s" , 

Symbol Table: FROM "symbol table"; 

DEFINITIONS FROM ControlDefs, SegmentDefs; 

SymbolTableDefs: DEFINITIONS ■ 
BEGIN 

SymbolTableHandle: TYPE * PRIVATE RECORD [segment: FileSegmentHandle]; 
NULLTableHandle: SymbolTableHandle - SymbolTableHandle[NIL]; 

SymbolTableBase: TYPE - POINTER TO FRAME[SymbolTable]; 

NoSymbolTable: SIGNAL [seg: FileSegmentHandle]; 

TableForSegment: PROCEDURE [seg: FileSegmentHandle] RETURNS [SymbolTableHandle]; 
SegmentForTable: PROCEDURE [table: SymbolTableHandle] RETURNS [FileSegmentHandle]; 

AcquireSymbolTable: PROCEDURE [handle: SymbolTableHandle] RETURNS [SymbolTableBase]; 
ReleaseSymbolTable: PROCEDURE [base: SymbolTableBase]; 

SymbolCacheSize: PROCEDURE RETURNS [pages: CARDINAL]; 
SetSymbolCacheSize: PROCEDURE [pages: CARDINAL]; 

SuspendSymbolCache, RestartSymbolCache: PROCEDURE; 

IllegalSymbolBase: SIGNAL [base: SymbolTableBase]; 

END. 


